home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / PRINTCOMP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  651b  |  21 lines
  1. 10  HOME 
  2. 30  PRINT  CHR$(4);"OPEN NUMCOMP,L20"
  3. 35  FOR I = 1 TO 3
  4. 40  PRINT  CHR$(4);"READ NUMCOMP,R"I
  5. 43  INPUT I(I)
  6. 45  NEXT I
  7. 50  PRINT  CHR$(4);"CLOSE NUMCOMP"
  8. 60  PRINT "Apple IIE  ";I(1)
  9. 70  PRINT "Apple IIGS ";I(2)
  10. 80  PRINT "Apple IIC  ";I(3)
  11. 90  VTAB 6: PRINT "Wipe OUT data? (Y/N)"
  12. 100  VTAB 6: HTAB 22: GET A$: PRINT A$
  13. 110  IF A$ = "N"  OR A$ = "n"  THEN  NEW 
  14. 120  IF A$ < >"Y"  AND A$ < >"y"  THEN  PRINT  CHR$(7): GOTO 90
  15. 130  PRINT  CHR$(4);"OPEN NUMCOMP,L20"
  16. 140  FOR I = 1 TO 3
  17. 150  PRINT  CHR$(4);"WRITE NUMCOMP,R"I
  18. 160  PRINT 0
  19. 170  NEXT I
  20. 180  PRINT  CHR$(4);"CLOSE NUMCOMP"
  21. 190  POKE  -16368,0: REM  CLEAR KEYBOARD BUFFER OF 'P'